﻿Public Class Mago : Inherits UnidadBase

    Public Property Nombre As String
    Protected Friend Property Magia As Integer
    Protected Friend Property Hechizos As List(Of Hechizo)
    Protected Const FUERZA_MAG = FUERZA_BASE
    Protected Const ATAQUE_MAG = ATAQUE_BASE
    Protected Const VELOCIDAD_MAG = VELOCIDAD_BASE
    Protected Const VIDA_MAG = VIDA_BASE
    Protected Const COSTE_MAG = COSTE_BASE + 6
    Protected Const DEFENSA_MAG = DEFENSA_BASE
    Protected Const DISCIPLINA_MAG = DISCIPLINA_BASE + 1
    Protected Const TAMAÑO_MAG = TAMAÑO_BASE
    Protected Const MAGIA_MAG = 3

    Public Sub New(ByVal nombre As String)
        Me.Nombre = nombre
        Me.Fuerza = FUERZA_MAG
        Me.Ataque = ATAQUE_MAG
        Me.Velocidad = VELOCIDAD_MAG
        Me.Vida = VIDA_MAG
        Me.Coste = COSTE_MAG
        Me.Defensa = DEFENSA_MAG
        Me.Disciplina = DISCIPLINA_MAG
        Me.Tamaño = TAMAÑO_MAG
        Me.Magia = MAGIA_MAG
        Me.Hechizos = New List(Of Hechizo)
    End Sub

    Public Function AñadirHechizo(ByVal opcion As Integer) As Integer
        Select Case (opcion)
            Case Is = 1
                Me.Hechizos.Add(New Hechizo("BolaFuego"))
                Return 4
            Case Is = 2
                Me.Hechizos.Add(New Hechizo("Debilidad"))
                Return 3
        End Select
        Return 0
    End Function
End Class
